home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok51 / m2 / defs / graphics.def < prev    next >
Text File  |  1993-11-04  |  22KB  |  800 lines
  1. DEFINITION MODULE Graphics {"graphics.library", 33};
  2.  
  3. FROM SYSTEM IMPORT
  4.  ADDRESS,BITSET,BYTE,LONGSET,WORD;
  5. FROM Hardware IMPORT
  6.  BltnodePtr;
  7. FROM Exec IMPORT
  8.  Interrupt,Library,List,Message,MinList,Node,SignalSemaphore,
  9.  SignalSemaphorePtr,TaskPtr;
  10.  
  11. TYPE
  12.  AnimCompPtr=POINTER TO AnimComp;
  13.  AnimObPtr=POINTER TO AnimOb;
  14.  AreaInfoPtr=POINTER TO AreaInfo;
  15.  BitMapPtr=POINTER TO BitMap;
  16.  BobPtr=POINTER TO Bob;
  17.  ClipRectPtr=POINTER TO ClipRect;
  18.  CollTablePtr=POINTER TO CollTable;
  19.  ColorMapPtr=POINTER TO ColorMap;
  20.  CopinitPtr=POINTER TO Copinit;
  21.  CopInsPtr=POINTER TO CopIns;
  22.  CopListPtr=POINTER TO CopList;
  23.  CprlistPtr=POINTER TO Cprlist;
  24.  DBufPacketPtr=POINTER TO DBufPacket;
  25.  GelsInfoPtr=POINTER TO GelsInfo;
  26.  IsrvstrPtr=POINTER TO Isrvstr;
  27.  LayerPtr=POINTER TO Layer;
  28.  LayerInfoPtr=POINTER TO LayerInfo;
  29.  RasInfoPtr=POINTER TO RasInfo;
  30.  RastPortPtr=POINTER TO RastPort;
  31.  RectanglePtr=POINTER TO Rectangle;
  32.  RegionPtr=POINTER TO Region;
  33.  RegionRectanglePtr=POINTER TO RegionRectangle;
  34.  SimpleSpritePtr=POINTER TO SimpleSprite;
  35.  TextAttrPtr=POINTER TO TextAttr;
  36.  TextFontPtr=POINTER TO TextFont;
  37.  TmpRasPtr=POINTER TO TmpRas;
  38.  UCopListPtr=POINTER TO UCopList;
  39.  ViewPtr=POINTER TO View;
  40.  ViewPortPtr=POINTER TO ViewPort;
  41.  VSpritePtr=POINTER TO VSprite;
  42.  
  43.  Rectangle=RECORD
  44.   minX:INTEGER;
  45.   minY:INTEGER;
  46.   maxX:INTEGER;
  47.   maxY:INTEGER;
  48.  END;
  49.  Layer=RECORD
  50.   front:LayerPtr;
  51.   back:LayerPtr;
  52.   clipRect:ClipRectPtr;
  53.   rp:RastPortPtr;
  54.   bounds:Rectangle;
  55.   reserved:ARRAY [0..3] OF BYTE;
  56.   priority:CARDINAL;
  57.   flags:CARDINAL;
  58.   superBitMap:BitMapPtr;
  59.   superClipRect:ClipRectPtr;
  60.   window:ADDRESS;
  61.   scrollX:INTEGER;
  62.   scrollY:INTEGER;
  63.   cr:ClipRectPtr;
  64.   cr2:ClipRectPtr;
  65.   crnew:ClipRectPtr;
  66.   superSaveClipRects:ClipRectPtr;
  67.   cliprects:ClipRectPtr;
  68.   layerInfo:LayerInfoPtr;
  69.   lock:SignalSemaphore;
  70.   reserved3:ARRAY [0..7] OF BYTE;
  71.   clipRegion:RegionPtr;
  72.   saveClipRects:RegionPtr;
  73.   reserved2:ARRAY [0..21] OF BYTE;
  74.   damageList:RegionPtr;
  75.  END;
  76.  ClipRect=RECORD
  77.   next:ClipRectPtr;
  78.   prev:ClipRectPtr;
  79.   lobs:LayerPtr;
  80.   bitMap:BitMapPtr;
  81.   bounds:Rectangle;
  82.   p1:ClipRectPtr;
  83.   p2:ClipRectPtr;
  84.   reserved:LONGINT;
  85.   flags:LONGINT;
  86.  END;
  87.  
  88. CONST
  89.  needsNoConcealedRasters=01H;
  90.  isLessX=1;
  91.  isLessY=2;
  92.  isGrtrX=4;
  93.  isGrtrY=8;
  94.  borderHit=0;
  95.  topHit=1;
  96.  bottomHit=2;
  97.  leftHit=4;
  98.  rightHit=8;
  99.  
  100. CONST
  101.  move=0;
  102.  wait=1;
  103.  next=2;
  104.  sht=14;
  105.  lof=15;
  106.  
  107. TYPE
  108.  CopIns=RECORD
  109.   CASE opCode:CARDINAL OF
  110.   | move:
  111.    destAddr:INTEGER;
  112.    destData:INTEGER;
  113.   | wait:
  114.    vWaitPos:INTEGER;
  115.    hWaitPos:INTEGER;
  116.   | next:
  117.    nxtlist:CopListPtr;
  118.   END;
  119.  END;
  120.  Cprlist=RECORD
  121.   next:CprlistPtr;
  122.   start:ADDRESS;
  123.   maxCount:INTEGER;
  124.  END;
  125.  CopList=RECORD
  126.   next:CopListPtr;
  127.   copList:CopListPtr;
  128.   viewPort:ViewPortPtr;
  129.   copIns:CopInsPtr;
  130.   copPtr:CopInsPtr;
  131.   copLStart:ADDRESS;
  132.   copSStart:ADDRESS;
  133.   count:INTEGER;
  134.   maxCount:INTEGER;
  135.   dyOffset:INTEGER;
  136.  END;
  137.  UCopList=RECORD
  138.   next:UCopListPtr;
  139.   firstCopList:CopListPtr;
  140.   copList:CopListPtr;
  141.  END;
  142.  Copinit=RECORD
  143.   diagstrt:ARRAY [0..3] OF CARDINAL;
  144.   sprstrtup:ARRAY [0..(2*8*2)+2+(2*2)+2-1] OF CARDINAL;
  145.   sprstop:ARRAY [0..1] OF CARDINAL;
  146.  END;
  147.  
  148. CONST
  149.  interlace=04H;
  150.  pf2pri=40H;
  151.  colorOn=200H;
  152.  dblpf=400H;
  153.  holdnmodify=800H;
  154.  m640=08000H;
  155.  plnCntMsk=07H;
  156.  plnCntShft=12;
  157.  
  158.  fineScroll=0FH;
  159.  fineScrollShift=04H;
  160.  fineScrollMask=0FH;
  161.  vrtclPos=01FFH;
  162.  vrtclPosShift=07H;
  163.  horizPos=07FH;
  164.  dftchMask=0FFH;
  165.  vposrlof=08000H;
  166.  
  167.  ringtrigger=01H;
  168.  anfracsize=06H;
  169.  animhalf=020H;
  170.  
  171.  b2Norm=0;
  172.  b2Swap=1;
  173.  b2Bobber=2;
  174.  
  175. TYPE
  176.  VSpriteFlags=(
  177.   vsprite,saveBack,overlay,mustDraw,vf4,vf5,vf6,vf7,backSaved,
  178.   bobUpdate,gelGone,vsOverflow);
  179.  VSpriteFlagSet=SET OF VSpriteFlags;
  180.  VSprite=RECORD
  181.   nextVSprite:VSpritePtr;
  182.   prevVSprite:VSpritePtr;
  183.   drawPath:VSpritePtr;
  184.   clearPath:VSpritePtr;
  185.   oldY:INTEGER;
  186.   oldX:INTEGER;
  187.   flags:VSpriteFlagSet;
  188.   y:INTEGER;
  189.   x:INTEGER;
  190.   height:INTEGER;
  191.   width:INTEGER;
  192.   depth:INTEGER;
  193.   meMask:BITSET;
  194.   hitMask:BITSET;
  195.   imageData:ADDRESS;
  196.   borderLine:ADDRESS;
  197.   collMask:ADDRESS;
  198.   sprColors:ADDRESS;
  199.   vsBob:BobPtr;
  200.   planePick:SHORTCARD;
  201.   planeOnOff:SHORTCARD;
  202.  END;
  203.  BobFlags=(
  204.   saveBob,bobIsComp,bf2,bf3,bf4,bf5,bf6,bf7,
  205.   bWaiting,bDrawn,bobsAway,bobNix,savePreserve,outStep
  206.  );
  207.  BobFlagSet=SET OF BobFlags;
  208.  Bob=RECORD
  209.   flags:BobFlagSet;
  210.   saveBuffer:ADDRESS;
  211.   imageShadow:ADDRESS;
  212.   before:BobPtr;
  213.   after:BobPtr;
  214.   bobVSprite:VSpritePtr;
  215.   bobComp:AnimCompPtr;
  216.   dBuffer:DBufPacketPtr;
  217.  END;
  218.  AnimComp=RECORD
  219.   flags:INTEGER;
  220.   timer:INTEGER;
  221.   timeSet:INTEGER;
  222.   nextComp:AnimCompPtr;
  223.   prevComp:AnimCompPtr;
  224.   nextSeq:AnimCompPtr;
  225.   prevSeq:AnimCompPtr;
  226.   animCRoutine:ADDRESS;
  227.   yTrans:INTEGER;
  228.   xTrans:INTEGER;
  229.   headOb:AnimObPtr;
  230.   animBob:BobPtr;
  231.  END;
  232.  AnimOb=RECORD
  233.   nextOb:AnimObPtr;
  234.   prevOb:AnimObPtr;
  235.   clock:LONGINT;
  236.   anOldY:INTEGER;
  237.   anOldX:INTEGER;
  238.   anY:INTEGER;
  239.   anX:INTEGER;
  240.   yVel:INTEGER;
  241.   xVel:INTEGER;
  242.   yAccel:INTEGER;
  243.   xAccel:INTEGER;
  244.   ringYTrans:INTEGER;
  245.   ringXTrans:INTEGER;
  246.   animORoutine:ADDRESS;
  247.   headComp:AnimCompPtr;
  248.  END;
  249.  DBufPacket=RECORD
  250.   bufY:INTEGER;
  251.   bufX:INTEGER;
  252.   bufPath:VSpritePtr;
  253.   bufBuffer:ADDRESS;
  254.  END;
  255.  CollTable=RECORD
  256.   collPtrs:ARRAY [0..15] OF ADDRESS
  257.  END;
  258.  BitMap=RECORD
  259.   bytesPerRow:CARDINAL;
  260.   rows:CARDINAL;
  261.   flags:SHORTCARD;
  262.   depth:SHORTCARD;
  263.   pad:CARDINAL;
  264.   planes:ARRAY [0..7] OF ADDRESS;
  265.  END;
  266.  DisplayFlags=(ntsc,genloc,pal);
  267.  DisplayFlagSet=SET OF DisplayFlags;
  268.  GfxBase=RECORD
  269.   libNode:Library;
  270.   actiView:ViewPtr;
  271.   copinit:CopinitPtr;
  272.   cia:ADDRESS;
  273.   blitter:ADDRESS;
  274.   loFlist:ADDRESS;
  275.   shFlist:ADDRESS;
  276.   blthd:BltnodePtr;
  277.   blttl:BltnodePtr;
  278.   bsblthd:BltnodePtr;
  279.   bsblttl:BltnodePtr;
  280.   vbsrv:Interrupt;
  281.   timsrv:Interrupt;
  282.   bltsrv:Interrupt;
  283.   textFonts:List;
  284.   defaultFont:TextFontPtr;
  285.   modes:BITSET;
  286.   vBlank:SHORTCARD;
  287.   debug:BYTE;
  288.   beamSync:INTEGER;
  289.   bplcon0:BITSET;
  290.   spriteReserved:SHORTCARD;
  291.   bytereserved:SHORTCARD;
  292.   flags:BITSET;
  293.   blitLock:INTEGER;
  294.   blitNest:INTEGER;
  295.   blitWaitQ:List;
  296.   blitOwner:TaskPtr;
  297.   waitQ:List;
  298.   displayFlags:DisplayFlagSet;
  299.   simpleSprites:ADDRESS;
  300.   maxDisplayRow:CARDINAL;
  301.   maxDisplayColumn:CARDINAL;
  302.   normalDisplayRows:CARDINAL;
  303.   normalDisplayColumns:CARDINAL;
  304.   normalDPMX:CARDINAL;
  305.   normalDPMY:CARDINAL;
  306.   lastChanceMemory:SignalSemaphorePtr;
  307.   lcMptr:ADDRESS;
  308.   microsPerLine:CARDINAL;
  309.   minDisplayColumn:CARDINAL;
  310.   reserved:ARRAY [0..22] OF LONGCARD;
  311.  END;
  312.  GfxBasePtr=POINTER TO GfxBase;
  313.  
  314. CONST
  315.  blitMsgFault=4;
  316.  
  317. TYPE
  318.  Isrvstr=RECORD
  319.   node:Node;
  320.   iptr:IsrvstrPtr;
  321.   code:ADDRESS;
  322.   ccode:ADDRESS;
  323.   carg:LONGINT;
  324.  END;
  325.  LayerFlags=(
  326.   layerSimple,layerSmart,layerSuper,lf3,layerUpdating,lf5,
  327.   layerBackdrop,layerRefresh,layerClipRectsLost
  328.  );
  329.  LayerFlagSet=SET OF LayerFlags;
  330.  LayerInfo=RECORD
  331.   layer:LayerPtr;
  332.   lp:LayerPtr;
  333.   obs:LayerPtr;
  334.   freeClipRects:MinList;
  335.   lock:SignalSemaphore;
  336.   head:List;
  337.   longreserved:LONGINT;
  338.   flags:LayerFlagSet;
  339.   count:SHORTINT;
  340.   lockLayersCount:SHORTINT;
  341.   layerInfoExtraSize:CARDINAL;
  342.   blitbuff:ADDRESS;
  343.   layerInfoExtra:ADDRESS;
  344.  END;
  345.  
  346. CONST
  347.  lmnRegion=-1;
  348.  newLayerInfoCalled=01H;
  349.  alertLayersNoMem=083010000H;
  350.  
  351. TYPE
  352.  AreaInfo=RECORD
  353.   vctrTbl:ADDRESS;
  354.   vctrPtr:ADDRESS;
  355.   flagTbl:ADDRESS;
  356.   flagPtr:ADDRESS;
  357.   count:INTEGER;
  358.   maxCount:INTEGER;
  359.   firstX:INTEGER;
  360.   firstY:INTEGER;
  361.  END;
  362.  TmpRas=RECORD
  363.   rasPtr:ADDRESS;
  364.   size:LONGINT;
  365.  END;
  366.  GelsInfo=RECORD
  367.   sprRsrvd:SHORTINT;
  368.   flags:SHORTCARD;
  369.   gelHead:VSpritePtr;
  370.   gelTail:VSpritePtr;
  371.   nextLine:ADDRESS;
  372.   lastColor:ADDRESS;
  373.   collHandler:CollTablePtr;
  374.   leftmost:INTEGER;
  375.   rightmost:INTEGER;
  376.   topmost:INTEGER;
  377.   bottommost:INTEGER;
  378.   firstBlissObj:ADDRESS;
  379.   lastBlissObj:ADDRESS;
  380.  END;
  381.  DrawModes=(dm0,complement,inversvid);
  382.  DrawModeSet=SET OF DrawModes;
  383.  FontStyles=(underlined,bold,italic,extended);
  384.  FontStyleSet=SET OF FontStyles;
  385.  FontFlags=(
  386.   romFont,diskFont,revPath,tallDot,wideDot,proportional,
  387.   designed,removed
  388.  );
  389.  FontFlagSet=SET OF FontFlags;
  390.  Point=RECORD
  391.   x,y:INTEGER;
  392.  END;
  393.  RastPortFlags=(
  394.  firstDot,oneDot,dBuffer,areaOutline,rpf4,noCrossFill,
  395.   rpf6,rpf7,rpf8
  396.  );
  397.  RastPortFlagSet=SET OF RastPortFlags;
  398.  RastPort=RECORD
  399.   layer:LayerPtr;
  400.   bitMap:BitMapPtr;
  401.   areaPtrn:ADDRESS;
  402.   tmpRas:TmpRasPtr;
  403.   areaInfo:AreaInfoPtr;
  404.   gelsInfo:GelsInfoPtr;
  405.   mask:SHORTCARD;
  406.   fgPen:SHORTCARD;
  407.   bgPen:SHORTCARD;
  408.   aOlPen:SHORTCARD;
  409.   drawMode:DrawModeSet;
  410.   areaPtSz:SHORTCARD;
  411.   linPatCnt:SHORTCARD;
  412.   dummy:BYTE;
  413.   flags:RastPortFlagSet;
  414.   linePtrn:CARDINAL;
  415.   x:INTEGER;
  416.   y:INTEGER;
  417.   minterms:ARRAY [0..7] OF SHORTCARD;
  418.   penWidth:INTEGER;
  419.   penHeight:INTEGER;
  420.   font:TextFontPtr;
  421.   algoStyle:FontStyleSet;
  422.   txFlags:FontFlagSet;
  423.   txHeight:CARDINAL;
  424.   txWidth:CARDINAL;
  425.   txBaseline:CARDINAL;
  426.   txSpacing:INTEGER;
  427.   user:ADDRESS;
  428.   longreserved:ARRAY [0..1] OF LONGINT;
  429.   wordreserved:ARRAY [0..6] OF WORD;
  430.   reserved:ARRAY [0..7] OF BYTE;
  431.  END;
  432.  
  433. CONST
  434.  jam1=DrawModeSet{};
  435.  jam2=DrawModeSet{dm0};
  436.  spriteAttached=080H;
  437.  normalFont=FontStyleSet{};
  438.  
  439. TYPE
  440.  RegionRectangle=RECORD
  441.   next:RegionRectanglePtr;
  442.   prev:RegionRectanglePtr;
  443.   bounds:Rectangle;
  444.  END;
  445.  Region=RECORD
  446.   bounds:Rectangle;
  447.   regionRectangle:RegionRectanglePtr;
  448.  END;
  449.  SimpleSprite=RECORD
  450.   posctldata:ADDRESS;
  451.   height:CARDINAL;
  452.   x:CARDINAL;
  453.   y:CARDINAL;
  454.   num:INTEGER;
  455.  END;
  456.  TextAttr=RECORD
  457.   name:ADDRESS;
  458.   ySize:CARDINAL;
  459.   style:FontStyleSet;
  460.   flags:FontFlagSet;
  461.  END;
  462.  TextFont=RECORD
  463.   message:Message;
  464.   ySize:CARDINAL;
  465.   style:FontStyleSet;
  466.   flags:FontFlagSet;
  467.   xSize:CARDINAL;
  468.   baseline:CARDINAL;
  469.   boldSmear:CARDINAL;
  470.   accessors:CARDINAL;
  471.   loChar:CHAR;
  472.   hiChar:CHAR;
  473.   charData:ADDRESS;
  474.   modulo:CARDINAL;
  475.   charLoc:ADDRESS;
  476.   charSpace:ADDRESS;
  477.   charKern:ADDRESS;
  478.  END;
  479.  ColorMap=RECORD
  480.   flags:SHORTCARD;
  481.   type:SHORTCARD ;
  482.   count:CARDINAL;
  483.   colorTable:ADDRESS;
  484.  END;
  485.  ViewModes=(
  486.   vm0,genlocVideo,lace,vm3,vm4,vm5,pfba,extraHalfbrite,
  487.   genlocAudio,vm9,dualpf,ham,vm12,vpHide,sprites,hires
  488.  );
  489.  ViewModeSet=SET OF ViewModes;
  490.  ViewPort=RECORD
  491.   next:ViewPortPtr;
  492.   colorMap:ColorMapPtr;
  493.   dspIns:CopListPtr;
  494.   sprIns:CopListPtr;
  495.   clrIns:CopListPtr;
  496.   uCopIns:UCopListPtr;
  497.   dWidth:INTEGER;
  498.   dHeight:INTEGER;
  499.   dxOffset:INTEGER;
  500.   dyOffset:INTEGER;
  501.   modes:ViewModeSet;
  502.   spritePriorities:SHORTCARD;
  503.   reserved:SHORTCARD;
  504.   rasInfo:RasInfoPtr;
  505.  END;
  506.  View=RECORD
  507.   viewPort:ViewPortPtr;
  508.   lofCprList:CprlistPtr;
  509.   shfCprList:CprlistPtr;
  510.   dyOffset:INTEGER;
  511.   dxOffset:INTEGER;
  512.   modes:ViewModeSet;
  513.  END;
  514.  RasInfo=RECORD
  515.   next:RasInfoPtr;
  516.   bitMap:BitMapPtr;
  517.   rxOffset:INTEGER;
  518.   ryOffset:INTEGER;
  519.  END;
  520.  
  521. (*
  522.  * Die Prozeduren AddAnimOb, Animate, InitArea,
  523.  * InitBitMap, InitRastPort, InitTmpRas, InitView
  524.  * und InitVPort haben einen VAR Parameter.
  525.  *)
  526.  
  527. PROCEDURE AddAnimOb(anOb{8}:AnimObPtr;
  528.                     VAR anKey{9}:AnimObPtr;
  529.                     rp{10}:RastPortPtr); CODE -156;
  530. PROCEDURE AddBob(Bob{8}:BobPtr;
  531.                  rp{9}:RastPortPtr); CODE -96;
  532. PROCEDURE AddFont(textFont{9}:TextFontPtr); CODE -480;
  533. PROCEDURE AddVSprite(vs{8}:VSpritePtr;
  534.                      rp{9}:RastPortPtr); CODE -102;
  535. PROCEDURE AllocRaster(width{0}:CARDINAL;
  536.                       height{1}:CARDINAL):ADDRESS; CODE -492;
  537. PROCEDURE AndRectRegion(region{8}:RegionPtr;
  538.                         rectangle{9}:RectanglePtr); CODE -504;
  539. PROCEDURE AndRegionRegion(
  540.            region1{8}:RegionPtr;
  541.            region2{9}:RegionPtr):BOOLEAN; CODE -624;
  542. PROCEDURE Animate(
  543.            VAR anKey{8}:AnimObPtr; rp{9}:RastPortPtr); CODE -162;
  544. PROCEDURE AreaDraw(rp{9}:RastPortPtr;
  545.                    x{0}:INTEGER;
  546.                    y{1}:INTEGER):BOOLEAN; CODE -258;
  547. PROCEDURE AreaEllipse(rp{9}:RastPortPtr;
  548.                       cX{0}:INTEGER;
  549.                       cY{1}:INTEGER;
  550.                       a{2}:INTEGER;
  551.                       b{3}:INTEGER):BOOLEAN; CODE -186;
  552. PROCEDURE AreaEnd(rp{9}:RastPortPtr):BOOLEAN; CODE -264;
  553. PROCEDURE AreaMove(rp{9}:RastPortPtr;
  554.                    x{0}:INTEGER;
  555.                    y{1}:INTEGER):BOOLEAN; CODE -252;
  556. PROCEDURE AskFont(rp{9}:RastPortPtr;
  557.                   textAttr{8}:TextAttrPtr); CODE -474;
  558. PROCEDURE AskSoftStyle(
  559.            rp{9}:RastPortPtr):FontStyleSet; CODE -84;
  560. PROCEDURE AttemptLockLayerRom(
  561.            layer{13}:LayerPtr):BOOLEAN; CODE -654;
  562. PROCEDURE BltBitMap(srcBitMap{8}:BitMapPtr;
  563.                     srcX{0}:INTEGER;
  564.                     srcY{1}:INTEGER;
  565.                     dstBitMap{9}:BitMapPtr;
  566.                     dstX{2}:INTEGER;
  567.                     dstY{3}:INTEGER;
  568.                     sizeX{4}:INTEGER;
  569.                     sizeY{5}:INTEGER;
  570.                     minterm{6}:SHORTCARD;
  571.                     mask{7}:SHORTCARD;
  572.                     tempA{10}:ADDRESS):LONGCARD; CODE -30;
  573. PROCEDURE BltBitMapRastPort(srcbm{8}:BitMapPtr;
  574.                             srcX{0}:INTEGER;
  575.                             srcY{1}:INTEGER;
  576.                             destRp{9}:RastPortPtr;
  577.                             destX{2}:INTEGER;
  578.                             destY{3}:INTEGER;
  579.                             sizeX{4}:INTEGER;
  580.                             sizeY{5}:INTEGER;
  581.                             minterm{6}:SHORTCARD); CODE -606;
  582. PROCEDURE BltClear(memBlock{9}:ADDRESS;
  583.                    bytecount{0}:LONGCARD;
  584.                    flags{1}:LONGSET); CODE -300;
  585. PROCEDURE BltMaskBitMapRastPort(
  586.            srcbm{8}:BitMapPtr;
  587.            srcX{0}:INTEGER;
  588.            srcY{1}:INTEGER;
  589.            destRp{9}:RastPortPtr;
  590.            destX{2}:INTEGER;
  591.            destY{3}:INTEGER;
  592.            sizeX{4}:INTEGER;
  593.            sizeY{5}:INTEGER;
  594.            minterm{6}:BYTE;
  595.            bltmask{10}:ADDRESS); CODE -636;
  596. PROCEDURE BltPattern(rp{9}:RastPortPtr;
  597.                      mask{8}:ADDRESS;
  598.                      xl{0}:INTEGER;
  599.                      yl{1}:INTEGER;
  600.                      maxX{2}:INTEGER;
  601.                      maxY{3}:INTEGER;
  602.                      bytecnt{4}:INTEGER); CODE -312;
  603. PROCEDURE BltTemplate(srcTemplate{8}:ADDRESS;
  604.                       srcX{0}:INTEGER;
  605.                       srcMod{1}:INTEGER;
  606.                       rp{9}:RastPortPtr;
  607.                       dstX{2}:INTEGER;
  608.                       dstY{3}:INTEGER;
  609.                       sizeX{4}:INTEGER;
  610.                       sizeY{5}:INTEGER); CODE -36;
  611. PROCEDURE CBump(c{9}:UCopListPtr); CODE -366;
  612. PROCEDURE ChangeSprite(vp{8}:ViewPortPtr;
  613.                        s{9}:SimpleSpritePtr;
  614.                        newdata{10}:ADDRESS); CODE -420;
  615. PROCEDURE ClearEOL(rp{9}:RastPortPtr); CODE -42;
  616. PROCEDURE ClearRectRegion(
  617.            region{8}:RegionPtr;
  618.            rectangle{9}:RectanglePtr):BOOLEAN; CODE -522;
  619. PROCEDURE ClearRegion(region{8}:RegionPtr); CODE -528;
  620. PROCEDURE ClearScreen(rp{9}:RastPortPtr); CODE -48;
  621. PROCEDURE ClipBlit(src{8}:RastPortPtr;
  622.                    srcX{0}:INTEGER;
  623.                    srcY{1}:INTEGER;
  624.                    dest{9}:RastPortPtr;
  625.                    destX{2}:INTEGER;
  626.                    destY{3}:INTEGER;
  627.                    xSize{4}:INTEGER;
  628.                    ySize{5}:INTEGER;
  629.                    minterm{6}:SHORTCARD); CODE -552;
  630. PROCEDURE CloseFont(font{9}:TextFontPtr); CODE -78;
  631. PROCEDURE CMove(c{9}:UCopListPtr;
  632.                 a{0}:ADDRESS;
  633.                 v{1}:INTEGER); CODE -372;
  634. PROCEDURE CopySBitMap(layer{8}:LayerPtr); CODE -450;
  635. PROCEDURE CWait(c{9}:UCopListPtr;
  636.                 v{0}:INTEGER;
  637.                 h{1}:INTEGER); CODE -378;
  638. PROCEDURE DisownBlitter(); CODE -462;
  639. PROCEDURE DisposeRegion(region{8}:RegionPtr); CODE -534;
  640. PROCEDURE DoCollision(rp{9}:RastPortPtr); CODE -108;
  641. PROCEDURE Draw(rp{9}:RastPortPtr;
  642.                x{0}:INTEGER;
  643.                y{1}:INTEGER); CODE -246;
  644. PROCEDURE DrawEllipse(rp{9}:RastPortPtr;
  645.                       cX{0}:INTEGER;
  646.                       cY{1}:INTEGER;
  647.                       a{2}:INTEGER;
  648.                       b{3}:INTEGER); CODE -180;
  649. PROCEDURE DrawGList(rp{9}:RastPortPtr;
  650.                     vp{8}:ViewPortPtr); CODE -114;
  651. PROCEDURE Flood(rp{9}:RastPortPtr;
  652.                 mode{2}:LONGCARD;
  653.                 x{0}:INTEGER;
  654.                 y{1}:INTEGER):BOOLEAN; CODE -330;
  655. PROCEDURE FreeColorMap(colorMap{8}:ColorMapPtr); CODE -576;
  656. PROCEDURE FreeCopList(coplist{8}:CopListPtr); CODE -546;
  657. PROCEDURE FreeCprList(cprlist{8}:CprlistPtr); CODE -564;
  658. PROCEDURE FreeGBuffers(anOb{8}:AnimObPtr;
  659.                        rp{9}:RastPortPtr;
  660.                        db{0}:BOOLEAN); CODE -600;
  661. PROCEDURE FreeRaster(p{8}:ADDRESS;
  662.                      width{0}:CARDINAL;
  663.                      height{1}:CARDINAL); CODE -498;
  664. PROCEDURE FreeSprite(pick{0}:INTEGER); CODE -414;
  665. PROCEDURE FreeVPortCopLists(vp{8}:ViewPortPtr); CODE -540;
  666. PROCEDURE GetColorMap(
  667.            entries{0}:LONGINT):ColorMapPtr; CODE -570;
  668. PROCEDURE GetGBuffers(anOb{8}:AnimObPtr;
  669.                       rp{9}:RastPortPtr;
  670.                       db{0}:BOOLEAN):BOOLEAN; CODE -168;
  671. PROCEDURE GetRGB4(colorMap{8}:ColorMapPtr;
  672.                   entry{0}:LONGINT):LONGINT; CODE -582;
  673. PROCEDURE GetSprite(sprite{8}:SimpleSpritePtr;
  674.                     pick{0}:INTEGER):INTEGER; CODE -408;
  675. (*PRIVATE*) PROCEDURE GraphicsReserved1():LONGINT; CODE -642;
  676. (*PRIVATE*) PROCEDURE GraphicsReserved2():LONGINT; CODE -648;
  677. PROCEDURE InitArea(VAR areainfo{8}:AreaInfo;
  678.                    buffer{9}:ADDRESS;
  679.                    maxvectors{0}:INTEGER); CODE -282;
  680. PROCEDURE InitBitMap(VAR bm{8}:BitMap;
  681.                      depth{0}:INTEGER;
  682.              width{1}:INTEGER;
  683.                      height{2}:INTEGER); CODE -390;
  684. PROCEDURE InitGels(head{8}:VSpritePtr;
  685.                    tail{9}:VSpritePtr;
  686.                    gInfo{10}:GelsInfoPtr); CODE -120;
  687. PROCEDURE InitGMasks(anOb{8}:AnimObPtr); CODE -174;
  688. PROCEDURE InitMasks(vs{8}:VSpritePtr); CODE -126;
  689. PROCEDURE InitRastPort(VAR rp{9}:RastPort); CODE -198;
  690. PROCEDURE InitTmpRas(VAR tmpras{8}:TmpRas;
  691.                      buffer{9}:ADDRESS;
  692.                      size{0}:LONGINT); CODE -468;
  693. PROCEDURE InitView(VAR view{9}:View); CODE -360;
  694. PROCEDURE InitVPort(VAR vp{8}:ViewPort); CODE -204;
  695. PROCEDURE LoadRGB4(vp{8}:ViewPortPtr;
  696.                    colors{9}:ADDRESS;
  697.                    count{0}:INTEGER); CODE -192;
  698. PROCEDURE LoadView(view{9}:ViewPtr); CODE -222;
  699. PROCEDURE LockLayerRom(layer{13}:LayerPtr); CODE -432;
  700. PROCEDURE MakeVPort(view{8}:ViewPtr;
  701.                     viewport{9}:ViewPortPtr); CODE -216;
  702. PROCEDURE Move(rp{9}:RastPortPtr;
  703.                x{0}:INTEGER;
  704.                y{1}:INTEGER); CODE -240;
  705. PROCEDURE MoveSprite(vp{8}:ViewPortPtr;
  706.                      sprite{9}:SimpleSpritePtr;
  707.                      x{0}:INTEGER;
  708.                      y{1}:INTEGER); CODE -426;
  709. PROCEDURE MrgCop(view{9}:ViewPtr); CODE -210;
  710. PROCEDURE NewRegion():RegionPtr; CODE -516;
  711. PROCEDURE OpenFont(
  712.            textAttr{8}:TextAttrPtr):TextFontPtr; CODE -72;
  713. PROCEDURE OrRectRegion(
  714.            region{8}:RegionPtr;
  715.            rectangle{9}:RectanglePtr):BOOLEAN; CODE -510;
  716. PROCEDURE OrRegionRegion(
  717.            region1{8}:RegionPtr;
  718.            region2{9}:RegionPtr):BOOLEAN; CODE -612;
  719. PROCEDURE OwnBlitter(); CODE -456;
  720. PROCEDURE PolyDraw(rp{9}:RastPortPtr;
  721.                    count{0}:INTEGER;
  722.                    array{8}:ADDRESS); CODE -336;
  723. PROCEDURE QBlit(bp{9}:BltnodePtr); CODE -276;
  724. PROCEDURE QBSBlit(bsp{9}:BltnodePtr); CODE -294;
  725. PROCEDURE ReadPixel(rp{9}:RastPortPtr;
  726.                     x{0}:INTEGER;
  727.                     y{1}:INTEGER):LONGINT; CODE -318;
  728. PROCEDURE RectFill(rp{9}:RastPortPtr;
  729.                    xMin{0}:INTEGER;
  730.                    yMin{1}:INTEGER;
  731.                    xMax{2}:INTEGER;
  732.                    yMax{3}:INTEGER); CODE -306;
  733. PROCEDURE RemFont(textFont{9}:TextFontPtr); CODE -486;
  734. PROCEDURE RemIBob(bob{8}:BobPtr;
  735.                   rp{9}:RastPortPtr;
  736.                   vp{10}:ViewPortPtr); CODE -132;
  737. PROCEDURE RemVSprite(vs{8}:VSpritePtr); CODE -138;
  738. PROCEDURE ScrollRaster(rp{9}:RastPortPtr;
  739.                        dx{0}:INTEGER;
  740.                        dy{1}:INTEGER;
  741.                        xMin{2}:INTEGER;
  742.                        yMin{3}:INTEGER;
  743.                        xMax{4}:INTEGER;
  744.                        yMax{5}:INTEGER); CODE -396;
  745. PROCEDURE ScrollVPort(vp{8}:ViewPortPtr); CODE -588;
  746. PROCEDURE SetAPen(rp{9}:RastPortPtr;
  747.                   pen{0}:CARDINAL); CODE -342;
  748. PROCEDURE SetBPen(rp{9}:RastPortPtr;
  749.                   pen{0}:CARDINAL); CODE -348;
  750. PROCEDURE SetCollision(num{0}:LONGCARD;
  751.                        routine{8}:PROC;
  752.                        gInfo{9}:GelsInfoPtr); CODE -144;
  753. PROCEDURE SetDrMd(rp{9}:RastPortPtr;
  754.                   mode{0}:DrawModeSet); CODE -354;
  755. PROCEDURE SetFont(rp{9}:RastPortPtr;
  756.                   font{8}:TextFontPtr); CODE -66;
  757. PROCEDURE SetRast(rp{9}:RastPortPtr;
  758.                   pen{0}:CARDINAL); CODE -234;
  759. PROCEDURE SetRGB4(vp{8}:ViewPortPtr;
  760.                   n{0}:CARDINAL;
  761.                   r{1}:CARDINAL;
  762.                   g{2}:CARDINAL;
  763.                   b{3}:CARDINAL); CODE -288;
  764. PROCEDURE SetRGB4CM(cm{8}:ColorMapPtr;
  765.                     n{0}:CARDINAL;
  766.                     r{1}:CARDINAL;
  767.                     g{2}:CARDINAL;
  768.                     b{3}:CARDINAL); CODE -630;
  769. PROCEDURE SetSoftStyle(
  770.            rp{9}:RastPortPtr;
  771.            style{0}:FontStyleSet;
  772.            enable{1}:FontStyleSet):FontStyleSet; CODE -90;
  773. PROCEDURE SortGList(rp{9}:RastPortPtr); CODE -150;
  774. PROCEDURE SyncSBitMap(layer{8}:LayerPtr); CODE -444;
  775. PROCEDURE Text(rp{9}:RastPortPtr;
  776.                string{8}:ADDRESS;
  777.                count{0}:LONGINT); CODE -60;
  778. PROCEDURE TextLength(rp{9}:RastPortPtr;
  779.                      string{8}:ADDRESS;
  780.                      count{0}:INTEGER):INTEGER; CODE -54;
  781. PROCEDURE UCopperListInit(copperList{8}:UCopListPtr;
  782.                           num{0}:LONGINT):UCopListPtr; CODE -594;
  783.  
  784. PROCEDURE UnlockLayerRom(layer{13}:LayerPtr); CODE -438;
  785. PROCEDURE VBeamPos():LONGINT; CODE -384;
  786. PROCEDURE WaitBlit(); CODE -228;
  787. PROCEDURE WaitBOVP(vp{8}:ViewPortPtr); CODE -402;
  788. PROCEDURE WaitTOF(); CODE -270;
  789. PROCEDURE WritePixel(rp{9}:RastPortPtr;
  790.                      x{0}:INTEGER;
  791.                      y{1}:INTEGER):BOOLEAN; CODE -324;
  792. PROCEDURE XorRectRegion(
  793.            region{8}:RegionPtr;
  794.            rectangle{9}:RectanglePtr):BOOLEAN; CODE -558;
  795. PROCEDURE XorRegionRegion(
  796.            region1{8}:RegionPtr;
  797.            region2{9}:RegionPtr):BOOLEAN; CODE -618;
  798.  
  799. END Graphics.
  800.